#!/usr/bin/env perl

# 标量
$var=123; #数字123
$s="123string";
print "$var $s\n";

#==================================
# 数组 @开头 索引从 0 开始
@arr=(1,3,6,8);
print "@arr\n";
print "arr ： @arr[2]\n";
print "arr ： $arr[2]\n";
$len=@arr;#获取数组长度 数组=>标量
print "数组的长度为： $len\n";

@arr1=(1..6); 
print("@arr1\n") ;

#==================================
# 哈希 是一个无序的 key/value 对集合。哈希变量以字符 % 开头。
my %h=('a'=>1, 'b'=>23);
print("hash : ",$h{'b'},"\n") ;

#==================================
# 整数
$x=13;
if($x < 1000){
        print "x<1000\n" ;
} else {
        print "x>=1000\n" ;
}

$y=$x/2; #相除
print "$y\n";

$y=$x%2; #求余数
print "$y\n" ;

$y=012; #八进制数据
print "$y\n" ;

$y=0xff; #十六进制数据
print "$y\n";

#==================================
# 浮点数
$var=15.345;
$var1=1.2e+3; #1200
print "$var\n";
print "$var1\n";

#==================================
# 字符串
$s='这是一个字符串

知道吗';

print $s ;
